home *** CD-ROM | disk | FTP | other *** search
/ Dictionaries & Language / Dictionaries and Language (Chestnut CD-ROM) (1993).iso / spell / pcspell / spellch2.pa4 < prev    next >
Encoding:
Text File  |  1988-01-11  |  791 b   |  29 lines
  1. program SPELLCH2;
  2. {checks the SPELLER.LIS or a aux dictionary file for out of place words.}
  3. var
  4.         filecheck     : text;
  5.         FBuf          : array[0..$1fff] of char;
  6.         word, oldword : string [24];
  7.         wordcount     : integer;
  8. begin
  9. if ParamCount = 0 then word := 'SPELLER.LIS'
  10.     else word := ParamStr(1);
  11. assign (filecheck, Word);
  12. SetTextBuf (FileCheck, FBuf);
  13. reset (filecheck);
  14. writeln ('CHECKING  ', Word);
  15. word := '';
  16. oldword := '';
  17. readln (filecheck, word);
  18. wordcount := 1;
  19. while not eof (filecheck) do begin
  20.    oldword := word;
  21.    readln (filecheck, word);
  22.    wordcount := wordcount+1;
  23.    if not (word > oldword) then writeln (oldword, '  ', word);
  24. end;
  25. close (filecheck);
  26. writeln ('Dictionary contains ', wordcount, ' words.');
  27. end.
  28.  
  29.